#NAME:_sbarstr

return unless @files;
return unless defined $kf;
# an example of statusbar strings

my $id="sbarstr";
if(exists($uvars{$id})){
    $id=$uvars{$id};
}else{
    $uvuid++;
    $id=$uvars{$id}=$uvuid;
}

my $fp=&get_fn($kf); # fullpath filename
(my $fn=$files[$kf])=~s/$didqr//; # filename
my $fs;

my $k=$id."fs$fn";
if(exists($uvars{$k})){
    $fs=$uvars{$k};
}else{
    my $fmt="%.1f";
    $fs=(stat($fp))[7];
    my $d=1024;
    if($fs<$d*1024){
	$fmt.=" KB";
    }else{
	$d*=1024;
	$fmt.=" MB";
    }
    $fs=sprintf($fmt,$fs/$d);
    $uvars{$k}=$fs;
}

return "$fn $fs";
